home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / READINT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  699 b   |  27 lines
  1. PROGRAM read_some_variables;
  2.  
  3. VAR index  : BYTE;
  4.     number1,number2,number3 : INTEGER;
  5.  
  6. BEGIN  (* main program *)
  7.  
  8. WRITELN('This is the ''READ'' portion of the program');
  9. FOR index := 1 TO 5 DO
  10. BEGIN
  11.   WRITE('Enter up to three integers ');
  12.   READ(number1,number2,number3);
  13.   WRITELN('Thank you');
  14.   WRITELN('The numbers entered were ',number1:6,number2:6,number3:6);
  15. END;
  16.  
  17. WRITELN;
  18. WRITELN('This is the ''READLN'' portion of the program');
  19. FOR index := 1 TO 5 DO
  20. BEGIN
  21.   WRITE('Enter up to three integers ');
  22.   READLN(number1,number2,number3);
  23.   WRITELN('Thank you');
  24.   WRITELN('The numbers entered were ',number1:6,number2:6,number3:6);
  25. END;
  26.  
  27. END.  (* of main program *)